﻿Public Class frmBXH

    Dim _bxh As New dsBXH
    'Dim _tht As New Thang_Hoa_Thua
    Private Sub frmBXH_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' _bxh.CapNhatBXH1DB(1)
        'dgvBXH.DataSource = _bxh.NapDongDuLieuVaoList(1)
        dgvBXH.DataSource = _bxh.SapXep(_bxh.LoadBXH)
        'dgvBXH.DataSource = _bxh.NapDongDuLieuVaoList(1)
        '   MessageBox.Show(_bxh.CapNhatBXH1DB(1).Diem)
    End Sub

    Private Sub btnDong_Click(sender As Object, e As EventArgs) Handles btnDong.Click
        Close()
    End Sub
End Class